home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Dr. Windows 3
/
dr win3.zip
/
dr win3
/
UTILITY1
/
GLOBLABB.ZIP
/
GAB00002.GA_
/
GAB00002.GA
(
.txt
)
Wrap
Microsoft Windows Help File Content
|
1994-02-11
|
10KB
|
191 lines
::VB Syntax Set (Global Abbreviations Sample)
::c:\globlabb\GAB00002.GAB
;Do +Do {[}+{{}+While +| +Until+{}} condition{]}{ENTER}{TAB}{[}statementblock{]}{ENTER}{TAB}{[}+Exit +Do{]}{ENTER}{TAB}{[}statementblock{]}{ENTER}+Loop
;For +For counter=start +To end {[}+Step increment{]}{ENTER}{TAB}{[}statementblock{]}{ENTER}{TAB}{[}+Exit +For{]}{ENTER}{TAB}{[}statementblock{]}{ENTER}+Next{[}counter{[},counter{]}{[},...{]}{]}
;Function {[}+Static{]} {[}+Private{]} +Function functionname {[}+{(}argumentlist+{)}{]}{[}+As type{]}{ENTER}{TAB}{[}statementblock{]}{ENTER}{TAB}{[}functionname = expression{]}{ENTER}{TAB}{[}+Exit +Function{]}{ENTER}{TAB}{[}statementblock{]}{ENTER}{TAB}{[}functionname = expression{]}{ENTER}+End +Function
;If +If condition1 +Then{ENTER}{TAB}{[}statementblock-1{]}{ENTER}{[}+Elseif condition2 +Then{ENTER}{TAB}{[}statementblock-2{]} {]}{ENTER}{[}+Else{ENTER}{TAB}{[}statementblock-n{]} {]}{ENTER}+End +If
;Select +Select +Case testexpression{ENTER}{[}+Case expressionlist1{ENTER}{TAB}{[}statementblock-1{[} {]}{ENTER}{[}+Case expressionlist2{ENTER}{TAB}{[}statementblock-2{]} {]}{ENTER}{[}+Case +Else{ENTER}{TAB}{[}statementblck-n{]} {]}{ENTER}+End +Select
;Sub {[}+Static{]} {[}+Private{]} +Sub subname {[}+{(}arglist+{)}{]}{ENTER}{TAB}{[}statementblock{]}{ENTER}{TAB}{[}+Exit +Sub{]}{ENTER}{TAB}{[}statementblock{]}{ENTER}+End +Sub
;Type +Type usertype{ENTER}{TAB}elementname {[}+{(}subscripts+{)}{]} +As typename{ENTER}{TAB}{[}elementname {[}+{(}subscripts+{)}{]} +As typename{ENTER}+End +Type
AddItem 'control.AddItem item [,index] Note: index is position, zero based
Arrange 'mdiform.Arrange arrangement Note: see predefined contants
Choose 'Choose( indexnum, varexpr [,varexpr ] . . .)
Circle '[object.]Circle [Step](x, y), radius[,[color] [,[start] [,[end] [,aspect] ] ] ]
Close 'Close [[#]filenumber] [,[#]filenumber] . . .
CompactDB 'CompactDatabase sourcename, destinationname [, locale [, options ] ]
Cosecant 'Cosec(X) = 1 / Sin(X)
Cotangent 'Cotan((X) = 1 / Tan(X)
CreateDB 'Set dbobject = CreateDatabase( dbname [, locale [, options ]] )
CreateDS1 'Set dynasetobject = database.CreateDynaset( source [, options ] )
CreateDS2 'Set dynasetobject = { recordset | querydef }.CreateDynaset( [ options ] )
CreateQD 'Set querydef = database.CreateQueryDef(name [, sqltext ])
CreateSS1 'Set snapshot = database.CreateSnapshot( source [, options ] )
CreateSS2 'Set snapshot = recordset.CreateSnapshot( [ options ] )
DateAdd 'DateAdd( interval, number, date )
DateDiff 'DateDiff( interval, date1, date2 )
DatePart 'DatePart( interval, date )
DateSerial 'DateSerial(year,month,day)
DateValue 'DateValue(stringexpression)
DDB 'DDB(cost, salvage, life, period)
Declare1 'Declare Sub globalname Lib "libname" [Alias "aliasname" ][([argumentlist])]
Declare2 'Declare Function globalname Lib libname [Alias aliasname ] [([argumentlist])] [As type]
Delete1 'recordset.Delete
Delete2 'collection.Delete membername (Professional Edition Only)
DeleteQD 'database.DeleteQueryDef( name )
Dim 'Dim varname[([subscripts])][As [New] type][, varname[([subscripts])][As [New] type] ] . . .
Dir$ 'Dir[$] [(filespec [,attrmask])]
Drag '[control.] Drag [action] Note Action values: 0 -> Cancel, 1-> Begin, 2 -> End (drop)
Environ1 'Environ[$](environmentstring)
Environ2 'Environ[$](n)
Eqv 'result = expr1 Eqv expr2
Erase 'Erase arrayname [, arrayname] . . .
Error$ 'Error[$][(errorcode)]
Execute1 'dbobject.Execute { queryname | sqlstatement }[, options ]
ExecuteSQL 'rows = database.ExecuteSQL( sqlstatement )
Exexute2 'querydef.Execute [ options ]
FieldSize 'sizevar = fieldobject.FieldSize( )
FileAttr 'FileAttr(filenumber, attribute)
FileCopy 'FileCopy srcfile, destfile
FileDT 'FileDateTime (filename)
FindFirst 'recordset.FindFirst criteria
FindLast 'recordset.FindLast criteria
FindNext 'recordset.FindNext criteria
FindPrevious 'recordset.FindPrevious criteria
Format 'Format[$](expression[, fmt] )
FV 'FV(rate, nper, pmt, pv, due)
Get 'Get [#] filenumber,[recordnumber],variablename
GetAttr 'GetAttr (filename)
GetChunk 'stringvar = fieldobject.GetChunk( offset, numbytes )
GetData 'Clipboard.GetData ([format]) Note: see CF_ constants
GetFormat 'Clipboard.GetFormat (format) Note: see CF_ constants
GetObject 'GetObject (filename [, class ])
GetText 'Clipboard.GetText ([format]) Note: see CF_ constants
Global 'Global varname[([subscripts])] [As [New] type] [, varname[([subscripts])] [As [New] type] ] . . .
GoTo 'GoTo { linelabel | linenumber}
HyperbolicCosecant 'HCosec(X) = 2 / (Exp(X) - Exp(-X))
HyperbolicCosine 'HCos(X) = (Exp(X) + Exp(-X)) / 2
HyperbolicCotangent 'HCotan(X) = (Exp(X) + Exp(-X)) / (Exp(X) - Exp(-X))
HyperbolicSecant 'HSec(X) = 2 / (Exp(X) + Exp(-X))
HyperbolicSine 'HSin(X) = (Exp(X) - Exp(-X)) / 2
HyperbolicTangent 'HTan(X) = (Exp(X) - Exp(-X)) / (Exp(X) + Exp(-X))
IIf 'IIf( expr, truepart, falsepart ) Note: requires msafinx.dll !!
Imp 'result = expr1 Imp expr2
In 'expr [Not] In (value1, value2, . . .) Note: SQL only
Input 'Input # filenumber, variablelist
Input$ 'Input[$](n,[#]filenumber)
InputBox 'InputBox[$](prompt [, [title] [, [default][, xpos, ypos ] ] ])
InStr ' InStr(start, strexpr1, strexpr2 [, compare] )
Inverse Sine 'Arcsin(X) = Atn(X / Sqr(-X * X + 1))
InverseCosecant 'Arccosec(X) = Atn(X/Sqr(X * X - 1)) + (Sgn(X) - 1) * 1.5708
InverseCosine 'Arccos(X) = Atn(-X / Sqr(-X * X + 1)) + 1.5708
InverseCotangent 'Arccotan(X) = Atn(X) + 1.5708
InverseHyperbolicCosecant 'HArccosec(X) = Log((Sgn(X) * Sqr(X * X + 1) +1) / X)
InverseHyperbolicCosine 'HArccos(X) = Log(X + Sqr(X * X - 1))
InverseHyperbolicCotangent 'HArccotan(X) = Log((X + 1) / (X - 1)) / 2
InverseHyperbolicSecant 'HArcsec(X) = Log((Sqr(-X * X + 1) + 1) / X)
InverseHyperbolicSine 'HArcsin(X) = Log(X + Sqr(X * X + 1))
InverseHyperbolicTangent 'HArctan(X) = Log((1 + X) / (1 - X)) / 2
InverseSecant 'Arcsec(X) = Atn(X / Sqr(X * X - 1)) + Sgn(Sgn(X) -1) * 1.5708
IPmt 'IPmt(rate, per, nper, pv, fv, due)
IRR 'IRR(valuearray( ), guess)
Is 'result = objref1 Is objref2
LBound 'LBound(array [,dimension])
Left$ 'Left[$](strexpr, n)
Like 'result = expression Like pattern
Line '[object.]Line [[Step](x1, y1)] - [Step](x2, y2) [,[color][,B[F]]]
Line_Input 'Line Input # filenumber, variablename
LinkEx 'control.LinkExecute cmdstring
LinkPoke 'control.LinkPoke
LinkRequest 'control.LinkRequest
LinkSend 'control.LinkSend
ListFields 'Set snapshot = recordset.ListFields( )
ListIndexes 'Set snapshot = table.ListIndexes( )
ListParam 'Set snapshot = querydef.ListParameters( )
ListTables 'Set snapshot = database.ListTables( )
LoadPic 'LoadPicture([stringexpression])
Lock 'Lock [#]filenumber [,{record | [start] To end} ]
Logarithm 'LogN(X) = Log(X) / Log(N)
LSet1 'LSet stringvar = stringexpr
LSet2 'LSet variable1 = variable2
LTrim$ '[L | R]Trim[$](stringexpr)
Mid$1 'Mid[$](stringexpr, start[, length])
Mid$2 'Mid[$](stringvar, start [, length]) = stringexpr
MIRR 'MIRR(valuearray( ), financerate, reinvestrate)
Mod 'result = operand1 Mod operand2
Move '[object.]Move left[, top[, width[, height] ] ]
MoveFirst 'recordset.MoveFirst
MoveLast 'recordset.MoveLast
MoveNext 'recordset.MoveNext
MovePrev 'recordset.MovePrevious
MsgBox1 'MsgBox(msg [, [type][, title] ] )
MsgBox2 'MsgBox msg [, [type][, title] ]
Name 'Name oldfilespec As newfilespec
NewPage 'Printer.Newpage
NPer 'NPer(rate, pmt, pv, fv, due)
NPV 'NPV(rate, valuearray( ))
OnError 'On Error { GoTo line | Resume Next | GoTo 0 }
Open 'Open file [For mode] [Access access] [lock] As [#]filenumber [Len = reclen]
OpenDB 'OpenDatabase( dbname [, exclusive [, readonly [, connect ]]] )
OpenQD 'Set querydef = database.OpenQueryDef( name )
OpenTable 'Set tableobject = dbobject.OpenTable(tablename [, options] )
Partition 'Partition( number, start, stop, interval )
Pmt 'Pmt(rate, nper, pv, fv, due)
Point '[object.]Point(x,y)
PopupMenu '[form.]PopupMenu menuname [, flags [, x [, y] ] ]
PPmt 'PPmt(rate, per, nper, pv, fv, due)
Print1 'Print # filenumber, [ [{Spc(n) | Tab(n)}][ expressionlist] [{; | ,}] ]
Print2 '[object.]Print [{Spc(n) | Tab(n)}][expressionlist][{; | ,}]
PrinterNP 'Printer.Newpage
PSet '[object.]PSet [Step](x, y)[,color]
Put 'Put [#] filenumber, [recordnumber], variablename
PV